100 REM********************************
110 REM***     READ ANY SECTOR      ***
120 REM***     BY FRANK DIGIOIA     ***
130 REM********************************
140 REM THE TRANSACTOR  VOL 8 ISSUE 3
150 REM********************************
160 OPEN15,8,15,"I0"
170 T=1:S=1:X=0:DIM A(255)
180 TS$="M-W"+CHR$(6)+CHR$(0)+CHR$(2)
190 SJ$="M-W"+CHR$(0)+CHR$(0)+CHR$(1)
200 INPUT"[147]TRACK";T
210 IF T<1 OR T>40 THEN 200
220 INPUT"SECTOR";S:IF S<0 THEN 220
230 PRINT#15,TS$;CHR$(T)CHR$(S)
240 PRINT#15,SJ$;CHR$(176):REM DO SEEK
250 GOSUB 420:REM AWAIT COMPLETION
260 PRINT#15,TS$;CHR$(T)CHR$(S)
270 PRINT#15,SJ$;CHR$(128):REM DO READ
280 GOSUB 420:REM AWAIT COMPLETION
290 PRINT#15,"M-R"CHR$(0)CHR$(3)CHR$(255)
300 PRINT"[147]":FORI=0TO255:GET#15,A$
310 A(I)=ASC(A$+CHR$(0)):PRINT A$;:NEXT
320 PRINT"HIT ANY KEY FOR SCREEN CODES"
330 POKE198,0:WAIT198,1:GETA$:PRINT"[147]"
340 FORI=0TO255:POKE1024+I,A(I)
345 POKE55296+I,1:NEXT: REM COLOUR RAM
350 PRINT"HIT A KEY FOR ASCII CODES"
360 POKE198,0:WAIT198,1:GETA$:PRINT""
370 FORI=0TO255:PRINT A(I);:NEXT
380 PRINT#15,"I0":CLOSE15:END
390 REM********************************
400 REM   WAIT FOR ACTIVITY COMPLETE
410 REM********************************
420 FORI=1TO3000:NEXT:REM INITIAL DELAY
430 PRINT#15,"M-R"CHR$(0)CHR$(0)
440 GET#15,A$:A=ASC(A$+CHR$(0))
450 IF A=176 THEN PRINT"SEEKING TRACK"
460 IF A=128 THEN PRINT"READING SECTOR"
470 X=X+1:IF A>127 AND X<11 THEN 420
480 IF A=1 THEN PRINT"OKAY":X=0:RETURN
490 PRINT"ERROR!!!":PRINT#15,"U:":STOP